home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aai.d64
/
load'obj.proc
< prev
next >
Wrap
Text File
|
2007-02-28
|
241b
|
13 lines
9000 //
9010 PROC LOAD'OBJ(NAME$) CLOSED
9020 POKE 157,0
9030 POKE 858,169
9040 POKE 859,0
9050 POKE 860,76
9060 POKE 861,213
9070 POKE 862,255
9080 OPEN FILE 78,NAME$+",P",READ
9090 SYS 858
9100 CLOSE FILE 78
9110 ENDPROC LOAD'OBJ